Over 1,000 Windows 95 Programs/Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso/1470/3ddemo.frm

Visual Basic Form | 1996-07-05 | 7KB | 241 lines

VERSION 4.00
Begin VB.Form frm3DDemo
   BorderStyle     =   0  'None
   Caption         =   "VBMax 3D Effects Demo"
   ClientHeight    =   3765
   ClientLeft      =   60
   ClientTop       =   45
   ClientWidth     =   5055
   Height          =   4170
   Icon            =   "3DDemo.frx":0000
   Left            =   0
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3765
   ScaleWidth      =   5055
   Top             =   -300
   Width           =   5175
   Begin VB.CommandButton cmdContainers
      Caption         =   "Co&ntainers"
      Height          =   360
      Left            =   3600
      TabIndex        =   9
      Top             =   1200
      Width           =   900
   End
   Begin VB.CommandButton cmdPercent
      Caption         =   "% &Meter"
      Height          =   360
      Left            =   2580
      TabIndex        =   8
      Top             =   2160
      Width           =   900
   End
   Begin VB.CommandButton cmdStatusBar
      Caption         =   "Stat&us Bar"
      Height          =   360
      Left            =   1560
      TabIndex        =   5
      Top             =   2160
      Width           =   900
   End
   Begin VB.CommandButton cmdPanels
      Caption         =   "&Panels"
      Height          =   360
      Left            =   540
      TabIndex        =   2
      Top             =   2160
      Width           =   900
   End
   Begin VB.CommandButton cmdShadows
      Caption         =   "&Shadows"
      Height          =   360
      Left            =   2580
      TabIndex        =   7
      Top             =   1680
      Width           =   900
   End
   Begin VB.CommandButton cmdAbout
      Caption         =   "&About"
      Height          =   360
      Left            =   3600
      TabIndex        =   10
      Top             =   1680
      Width           =   900
   End
   Begin VB.CommandButton cmdFrames
      Caption         =   "&Frames"
      Height          =   360
      Left            =   1560
      TabIndex        =   3
      Top             =   1200
      Width           =   900
   End
   Begin VB.CommandButton cmdText
      Caption         =   "&Text"
      Height          =   360
      Left            =   540
      TabIndex        =   0
      Top             =   1200
      Width           =   900
   End
   Begin VB.CommandButton cmdControls
      Caption         =   "&Controls"
      Height          =   360
      Left            =   1560
      TabIndex        =   4
      Top             =   1680
      Width           =   900
   End
   Begin VB.CommandButton cmdLines
      Caption         =   "&Lines"
      Height          =   360
      Left            =   540
      TabIndex        =   1
      Top             =   1680
      Width           =   900
   End
   Begin VB.CommandButton cmdExit
      Caption         =   "E&xit"
      Height          =   360
      Left            =   3600
      TabIndex        =   11
      Top             =   2160
      Width           =   900
   End
   Begin VB.CommandButton cmdFoms
      Caption         =   "F&orms"
      Height          =   360
      Left            =   2580
      TabIndex        =   6
      Top             =   1200
      Width           =   900
   End
   Begin VB.Shape Shape1
      Height          =   1695
      Left            =   345
      Top             =   1020
      Visible         =   0   'False
      Width           =   4350
   End
   Begin VB.Label lblVBMax
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Visual Basic to the Max"
      BeginProperty Font
         name            =   "Times New Roman"
         charset         =   0
         weight          =   700
         size            =   20.25
         underline       =   0   'False
         italic          =   -1  'True
         strikethrough   =   0   'False
      EndProperty
      Height          =   465
      Left            =   420
      TabIndex        =   13
      Top             =   3000
      Width           =   4095
   End
   Begin VB.Label lblTitle
      AutoSize        =   -1  'True
      Caption         =   "VBMax 3D Effects Demo"
      BeginProperty Font
         name            =   "Times New Roman"
         charset         =   0
         weight          =   700
         size            =   20.25
         underline       =   0   'False
         italic          =   0   'False
         strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   465
      Left            =   300
      TabIndex        =   12
      Top             =   240
      Width           =   4380
   End
Attribute VB_Name = "frm3DDemo"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Dim mo3D As New C3D
Private Sub cmdContainers_Click()
    frm3DContainers.Show
End Sub
Private Sub Form_Load()
    With mo3D
        .Style = gnRAISED
            .Caption lblTitle, gnUSE_CONTROL_FONT
            .Offset = 3
            .DropShadow cmdText
            .DropShadow cmdLines
            .DropShadow cmdPanels
            .DropShadow cmdFrames
            .DropShadow cmdControls
            .DropShadow cmdFoms
            .DropShadow cmdStatusBar
            .DropShadow cmdShadows
            .DropShadow cmdPercent
            .DropShadow cmdContainers
            .DropShadow cmdAbout
            .DropShadow cmdExit

        .Style = gnEMBOSSED_RAISED
            .Caption lblVBMax, gnUSE_CONTROL_FONT

        .Style = gnRECESSED
            .Depth = 2
            .Width = 10
            .Border Shape1
            .FormBorder Me
   End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Set mo3D = Nothing
    Set frm3DDemo = Nothing
    End
End Sub
Private Sub cmdAbout_Click()
    frmAbout.Show
End Sub
Private Sub cmdControls_Click()
    frm3DControls.Show
End Sub
Private Sub cmdExit_Click()
    Unload Me
End Sub
Private Sub cmdFoms_Click()
    frm3DFXForms.Show
End Sub
Private Sub cmdLines_Click()
    frm3DLines.Show
End Sub
Private Sub cmdText_Click()
    frmBusy.Show
    frmBusy.Refresh
    frm3DText.Show
    Unload frmBusy
End Sub
Private Sub cmdFrames_Click()
    frmBusy.Show
    frmBusy.Refresh
    frm3DFrames.Show
    Unload frmBusy
End Sub
Private Sub cmdShadows_Click()
    frm3DShadows.Show
End Sub
Private Sub cmdPanels_Click()
    frm3DPanels.Show
End Sub
Private Sub cmdStatusBar_Click()
    frm3DStatusBar.Show
End Sub
Private Sub cmdPercent_Click()
    frm3DPercentMeter.Show
End Sub